home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / dev / misc / FixMFMDevice.lha / Source / FreeFileMem.s < prev    next >
Encoding:
Text File  |  1996-09-21  |  198 b   |  11 lines
  1. FreeFilememory    Tst.l    LoadAddr(a5)
  2.         Beq.b    .NoFileInBuffer
  3.  
  4.         Move.l    LoadAddr(a5),a1
  5.         Move.l    LoadBufferSize(a5),d0
  6.         Move.l    _Execbase(a5),a6
  7.         Clr.l    LoadAddr(a5)
  8.  
  9.         Jump    FreeMem
  10. .NoFileInBuffer    Rts
  11.